home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk205 / cross / source / src.lha / Cross / Source / CPCGlobal.def < prev    next >
Encoding:
Modula Definition  |  1992-02-10  |  1.0 KB  |  57 lines
  1. DEFINITION MODULE CPCGlobal;
  2.  
  3.  
  4.  
  5. IMPORT GraphicsD;
  6. IMPORT IntuiIO;
  7. IMPORT SYSTEM;
  8.  
  9.  
  10.  
  11. CONST
  12.  stringLen=31;
  13.  lStringLen=stringLen*2;
  14.  maxmsg=93;
  15.  stat=44;
  16.  maxwords=3400;
  17.  puzzlewords=300;
  18.  maxgrid=39;
  19.  blankC="@";
  20.  yoff=16;
  21.  
  22.  
  23.  
  24. TYPE
  25.  String=ARRAY [0..stringLen] OF CHAR;
  26.  StringPtr=POINTER TO String;
  27.  LString=ARRAY [0..lStringLen] OF CHAR;
  28.  Switch=(on,off);
  29.  Column=ARRAY [0..maxgrid+1] OF CHAR;
  30.  Field=ARRAY [0..maxgrid+1] OF Column;
  31.  WordField=ARRAY [0..maxwords] OF StringPtr;
  32.  PuzzleWordField=ARRAY [0..puzzlewords] OF String;
  33.  
  34.  
  35.  
  36. VAR
  37.  search,show: Switch;
  38.  window: IntuiIO.WINDOW;
  39.  screen: IntuiIO.SCREEN;
  40.  msg: ARRAY [1..maxmsg] OF LString;
  41.  rastport: GraphicsD.RastPortPtr;
  42.  viewport: GraphicsD.ViewPortPtr;
  43.  text: Field;
  44.  kwr: PuzzleWordField;
  45.  words: WordField;    (* words[0] is not used as a pointer but contains the *)
  46.                       (* size of the memchunk that was allocated for the words *)
  47.  hori,vert,xmax,ymax: INTEGER;
  48.  topaz: GraphicsD.TextFontPtr;
  49.  
  50.  
  51.  
  52. PROCEDURE myAssert(flag: BOOLEAN; txt1Ptr,txt2Ptr: SYSTEM.ADDRESS);
  53.  
  54.  
  55.  
  56. END CPCGlobal.
  57.